home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / storage / function / dasd / ioctl / wphyt2.scr < prev    next >
Encoding:
Text File  |  1994-05-10  |  702 b   |  37 lines
  1. @thread WPHYT2.LOG
  2. @NewAlias da DASD.GRA
  3. da LOG $PROMPT="LOGGING WRITE PHYSICAL TEST 2"
  4. da set DISKNUMBER=1:
  5. da OPEN_PHYSICAL
  6. da GET_PHYSICAL_PARAMS
  7.  
  8. da response $PROMPT="LOOPING 100 TIMES"
  9. da set HEAD=5          \
  10.        CYLINDER=20     \
  11.        SECTORSTART=1   \
  12.        SECTORCOUNT=30  \
  13.        SECTORSIZE=512  \
  14.        $BUFFER=BETA    \
  15.        $i=0            \
  16.        $op1=1          \
  17.        $result=$i      \
  18.        $kwd=$($result)          
  19.       
  20. da log $prompt="LOOP BEGINING"
  21. @loop 100
  22. da set DISKNUMBER=1:
  23. da READ_PHYSICAL
  24. da add $op2=$($i) 
  25. da out 
  26. @IMPORT SYSINFO2.TXT
  27. da WRITE_PHYSICAL
  28. @endloop
  29.  
  30. da log $prompt="LOOP END"
  31. da CLOSE_PHYSICAL
  32. @flush da
  33.  
  34.  
  35.  
  36.  
  37.